home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
geschaef
/
ds0093
/
topfakt
/
artlist6.for
< prev
next >
Wrap
Text File
|
1993-06-30
|
2KB
|
59 lines
/
^17 ^E
!LINKER RAND 8
^12^BArtikel-Kunden-Liste ^b^17
/
!#VORHERIGE_ArtNr:= "' '"
Seite: #SEITE:8:0
Stand: #DATUM
Art.-Nr. Bezeichnung Kd.Nr. Name Menge Umsatz
────────────────────────────────────────────────────────────────────────────────────────────────────────
/234567890 123456789012345678901234567890 123456 123456789012345678901234567890 12345678901 123456789012
/
!LISTE:57 // Druck Liste maximal bis Druckzeile 57
!WENN .NOT. Empty( #ArtNr) .AND. #ZwSummeUmsatz<> 0 .AND. #ZwSummeUmsatz<> #Umsatz
────────────────────────
Zwischensumme: #ZwSummeMenge:11:2 #ZwSummeUmsatz:12:2
!#ZwSummeUmsatz:= 0
!#ZwSummeMenge := 0
!ENDE WENN
/
#ArtNr:10 #ArtName:30 #KunNr #KunName #Menge:11:2 #Umsatz:12:2
/
!#Anz:= #Anz + 1
!#ZwSummeUmsatz:= #ZwSummeUmsatz + #Umsatz
!#ZwSummeMenge := #ZwSummeMenge + #Menge
!#SummeUmsatz:= #SummeUmsatz + #Umsatz
!#SummeMenge := #SummeMenge + #Menge
!#vorherige_ArtNr:= ArtNr
!ENDE LISTE
/
!WENN #LETZTESEITE
────────────────────────
Zwischensumme: #ZwSummeMenge:11:2 #ZwSummeUmsatz:12:2
────────────────────────────────────────────────────────────────────────────────────────────────────────
Anzahl der aufgelisteten Kunden: #ANZ:8:0 Gesamtsumme: #SummeMenge:11:2 #SummeUmsatz:12:2
!ENDE WENN
/
!SEITENAUSWURF
!FORMULARENDE // alles, was hiernach kommt, wird nicht mehr gedruckt...
!PLATZHALTER
#ArtNr, IF( "#Vorherige_ArtNr" <> ArtNr, artnr, '')
#ArtName, IF( "#Vorherige_ArtNr" <> Artnr, Substr( art->art_name, 1,30), '')
#KunNr, kdnr
#KunName, kun->n2
#Menge, menge
#Umsatz, menge * EPreis
#VORHERIGE_ArtNr, vorhergruppe
#Anz, nAnz
#ZwSummeUmsatz, nZwSumUms
#ZwSummeMenge, nZwSumMen
#SummeUmsatz, nSumUms
#SummeMenge, nSumMen
!ENDE PLATZHALTER